Mobiclic 48/MOBICLIC 48.ISO/pc/DATA/DemoAtlas/demo.cst/00005_Script_moteurs

Text File | 2002-07-23 | 2KB | 75 lines

-- affiche un Θlastique entre un objet origine et un objet cible

global traitLiaison, volumeOn, menuOuvert

-- test clic sur Θcran
on testClic
  if menuOuvert=0 and volumeOn<>1 then
    return 1
  else
    return 0
  end if
end

-- impression de l'Θcran
on imprime
 prevue = the optionDown
  doc = xtra("PrintOMatic").new()
  if not objectP(doc) then exit
  setPrintableMargins doc
  if doPageSetUp (doc) = true then
    newPage doc
    H = getPageWidth(doc)
    V = getPageHeight(doc)
    X =(H-640)/2
    Y =(V-480)/2
    if H>640 then
      drawStagePicture doc, Point(X,Y),Rect(1,1,640,480),true
    else
      drawStagePicture doc, rect(1,1,H,V),Rect(1,1,640,480),true
    end if
    if doJobSetup (doc) = TRUE then
      if prevue = 1 then
        printPreview doc
      else
        setProgressMsg doc , "Impression d'un Θcran Mobiclic en cours... "
        print doc
      end if
    end if
  end if
  doc = 0
end imprime

-- impression d'un acteur
on imprimeActeur n,c
  if the paramCount=1 then
    c=1
  end if
  prevue = the optionDown
  if prevue=1 then
    printPreview member n of castLib c
  else
    print member n of castLib c
  end if
end imprimeActeur

-- temporisation (en secondes)
on temporise t
  t= t*60.0
  d = the timer
  repeat while the timer - d < t
  end repeat
end temporise

-- conversion d'un chemin d'accΦs de Mac α Dos
on nomDos nom
  if the machineType = 256 then
    repeat with i=1 to the number of chars of nom
      if char i of nom = ":" then
        put "\" into char i of nom
      end if
    end repeat
  end if
  return nom
end nomDos